10 REM MIXED MODES - COPYRIGHT 1988 COMPUTE! PUBLICATIONS, INC.
20 REM REGISTERS 17,24,32,33
30 V=49152:S=49664:O=S+82:I=S+161:DF=S+209
40 FORX=820TO850:READD:POKEX,D:NEXT
50 PRINT"[147]":POKES+1,2:SYSI
60 POKEV+18*8,114:POKEV+18*8+1,186
70 POKEV+32*8,1:POKEV+33*8,0:POKEV+32*8+1,1:POKEV+33*8+1,0
80 POKEV+17*8,59:POKEV+17*8+1,27
90 POKEV+24*8,29:POKEV+24*8+1,21
100 B=8192:E=16192:N=0:GOSUB280
110 B=1024:E=1304:N=48:GOSUB280
120 B=1304:E=1744:N=32:GOSUB280
130 B=1744:E=2024:N=112:GOSUB280
140 SYSS
150 PRINT"[159]                  SINE                  "
160 PRINTSPC(12)"[154]HIGH-RES AND TEXT"
170 PRINTSPC(7)"(OR OTHER GRAPHICS MODES)"
180 PRINT"    CAN BE MIXED ON THE SAME SCREEN."
190 PRINT"[158]                 COSINE                 "
200 FORX=100TO219
210 Y1=INT(35+10*SIN(X/10)):Y2=INT(170+10*COS(X/10))
220 B1=8192+INT(Y1/8)*320+INT(X/8)*8+(Y1AND7)
230 B2=8192+INT(Y2/8)*320+INT(X/8)*8+(Y2AND7)
240 BI=7-(XAND7)
250 POKEB1,PEEK(B1)OR(2^BI):POKEB2,PEEK(B2)OR(2^BI)
260 NEXTX
270 GOTO270
280 BH=INT(B/256):BL=B-BH*256:POKE823,BL:POKE824,BH
290 EH=INT(E/256):EL=E-EH*256:POKE840,EL:POKE847,EH
300 POKE821,N:SYS820:RETURN
310 DATA169,0,141,255,255,238,55,3
320 DATA173,55,3,208,3,238,56,3
330 DATA173,55,3,201,0,208,233,173
340 DATA56,3,201,0,208,226,96